my @ar = ();

print scalar(@ar), "\n";

for (0 ... (1000000-1)) {
    push(@ar, $_);
}

print scalar(@ar), "\n";

for (0 ... (1000000-1)) {
    pop(@ar);
}

print scalar(@ar), "\n";
